44
How do I enable the cross link support ( rectangular )

With SwimLane1
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",0,76
		With .Add("Element <sha ;;0>C",-76,32)
			.AutoSize = False
			.Height = 32
		End With
		With .Add("Element <sha ;;0>D",76,32)
			.AutoSize = False
			.Height = 32
		End With
	End With
	With .Links
		With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
			.StartPos = 1
			.EndPos = 1
		End With
		With .Add(SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1))
			.StartPos = 1
			.EndPos = 1
		End With
		.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(4)
		With .Add(SwimLane1.Elements.Item(4),SwimLane1.Elements.Item(3))
			.StartPos = 0
			.EndPos = 2
		End With
	End With
	.ShowLinks = 33 ' ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
End With
43
How do I show a link frmo bottom to top, or reverse, not from left to right

With SwimLane1
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",0,64
	End With
	With .Links
		With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
			.StartPos = 1
			.EndPos = 1
		End With
	End With
End With
42
Is it possible to control the links, so that they are always centered

With SwimLane1
	With .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
	End With
	With .Links
		.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
		.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
		.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
		.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
	End With
	.ShowLinks = -1
	.DefArrange(0) = 1
	.Arrange 
End With
41
What options to align the elements do I have if I use Arrange method

With SwimLane1
	.BeginUpdate 
	.ShowGridLines = True
	With .Elements
		h1 = .Add("Top Alignment").ID
		.Add "Element"
		.Add "Element"
		.Add "Element"
		h2 = .Add("Center Alignment",,96).ID
		.Add "Element",,96
		.Add "Element",,96
		.Add "Element",,96
		h3 = .Add("Bottom Alignment",,178).ID
		.Add "Element",,192
		.Add "Element",,192
		.Add "Element",,192
	End With
	With .Links
		.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
		.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(3)
		.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(4)
		.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(3)
		.Add SwimLane1.Elements.Item(5),SwimLane1.Elements.Item(6)
		.Add SwimLane1.Elements.Item(5),SwimLane1.Elements.Item(7)
		.Add SwimLane1.Elements.Item(6),SwimLane1.Elements.Item(8)
		.Add SwimLane1.Elements.Item(6),SwimLane1.Elements.Item(7)
		.Add SwimLane1.Elements.Item(9),SwimLane1.Elements.Item(10)
		.Add SwimLane1.Elements.Item(9),SwimLane1.Elements.Item(11)
		.Add SwimLane1.Elements.Item(10),SwimLane1.Elements.Item(12)
		.Add SwimLane1.Elements.Item(10),SwimLane1.Elements.Item(11)
	End With
	.DefArrange(3) = 0
	.Arrange h1
	.DefArrange(3) = 1
	.Arrange h2
	.DefArrange(3) = 2
	.Arrange h3
	.EndUpdate 
End With
40
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it

With SwimLane1
	With .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
	End With
	With .Links
		.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
		.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
		.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
		.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
	End With
	.Arrange 
End With
39
Is it possible to change the distance between elements, when calling the Arrange method

With SwimLane1
	With .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
	End With
	With .Links
		.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
		.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
		.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
		.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
	End With
	.DefArrange(1) = 0
	.DefArrange(2) = 0
	.Arrange 
End With
38
How do I organize vertically the elements

With SwimLane1
	With .Elements
		.Add("Element A").ID = "A"
		.Add("Element B").ID = "B"
		.Add("Element C").ID = "C"
		.Add("Element D").ID = "D"
	End With
	With .Links
		.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
		.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
		.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
		.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
	End With
	.ShowLinksType = 2
	.DefArrange(0) = 1
	.Arrange 
End With
37
How can I add programatically a link

With SwimLane1
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",96,24
	End With
	With .Links
		.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
	End With
End With
36
How do I get the link from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub SwimLane1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
	With SwimLane1
		Set l = .LinkFromPoint(-1,-1)
		Debug.Print( l )
	End With
End Sub

With SwimLane1
	With .Elements
		.Add "Element <sha ;;0>A"
		.Add "Element <sha ;;0>B",96,24
	End With
	With .Links
		.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
	End With
End With
35
Is there a way to create a link which has the same start and end element

With SwimLane1
	With .Elements
		.Add "Element"
	End With
	With .Links
		.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(1)
	End With
End With
34
How can I show the pool's caption not-rotated or mirrored

With SwimLane1
	.BeginUpdate 
	.AllowDesignHeader = 4
	With .Pools.Add(-150,-150,300,150)
		.HeaderCaptionSupportRotate = False
		.HeaderSize(0) = 48
		.HeaderSize(2) = 48
		.Lane(0).Children.Count = 3
	End With
	.EndUpdate 
End With
33
How can I prevent creating sub-lanes or sub-phases

With SwimLane1
	.BeginUpdate 
	.AllowDesignHeader = 4
	With .Pools.Add(-150,-150,300,150)
		.HeaderSize(0) = 32
		.HeaderSize(2) = 32
		.Lane(0).Children.Count = 3
	End With
	.EndUpdate 
End With
32
How do I show a complete frame/border around the header

With SwimLane1
	.BeginUpdate 
	With .Pools.Add(-150,-150,300,150)
		.HeaderSize(1) = 32
		.HeaderSize(3) = 32
		With .Lane(1).Children
			.Count = 3
			.Item(1).Header.Pattern.Type = 768
		End With
	End With
	.EndUpdate 
End With
31
How do I show a complete frame/border around the lane

With SwimLane1
	.BeginUpdate 
	With .Pools.Add(-150,-150,300,150)
		.HeaderSize(1) = 32
		.HeaderSize(3) = 32
		With .Lane(1).Children
			.Count = 3
			.Item(1).Pattern.Type = 768
		End With
	End With
	.EndUpdate 
End With
30
How can I define sub-lanes

With SwimLane1
	.BeginUpdate 
	With .Pools.Add(-150,-150,300,250)
		.HeaderSize(1) = 32
		.HeaderSize(3) = 32
		With .Lane(1).Children
			.Count = 3
			.Item(1).Children.Count = 2
		End With
	End With
	.EndUpdate 
End With
29
How can I add default lanes when the user creates a new pool
' AddPool event - A new pool has been added to the surface.
Private Sub SwimLane1_AddPool(ByVal Pool As Object)
	' Pool.HeaderSize(1) = 24
	' Pool.HeaderVisible(0) = False
	' Pool.HeaderVisible(1) = True
	' Pool.HeaderVisible(2) = False
	' Pool.HeaderVisible(3) = False
	' Pool.Lane(1).Children.Count = 2
End Sub

With SwimLane1
	.BeginUpdate 
	.Pools.Add -100,-100,250,250
	.EndUpdate 
End With
28
How do I prevent showing headers when the user creates new pools

' AddPool event - A new pool has been added to the surface.
Private Sub SwimLane1_AddPool(ByVal Pool As Object)
	With SwimLane1
		With Pool
		End With
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.Pools.Add(-100,-100,250,250).Lane(0).Children.Count = 3
	.EndUpdate 
End With
27
How can I display icons on headers

With SwimLane1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Pools.Add(-100,-100,250,250)
		.HeaderVisible(0) = False
		.HeaderVisible(2) = False
		.HeaderVisible(3) = False
		.HeaderSize(1) = 24
		With .Lane(1).Children
			.Count = 3
			.Item(0).Header.Caption = "<img>1</img> A"
			.Item(1).Header.Caption = "<img>2</img> B"
			.Item(2).Header.Caption = "<img>3</img> C"
		End With
	End With
	.EndUpdate 
End With
26
How do I change the Lane and Phase strings being displayed on the lanes

With SwimLane1
	.BeginUpdate 
	.DefPoolHeaderCaptionFormat(True) = "<fgcolor 808080>Faza <off -4><b><font ;6>%i"
	.DefPoolHeaderCaptionFormat(False) = "<fgcolor 808080>Culoar <off -4><b><font ;6>%i"
	With .Pools.Add(-100,-100,250,250)
		.Lane(0).Children.Count = 3
		.Lane(1).Children.Count = 3
		.Lane(1).Children.Item(1).Header.Caption = "<fgcolor FF0000><b>NEW"
	End With
	.EndUpdate 
End With
25
How can I enlarge the node while AutoSize property is True (method 2)

With SwimLane1
	.Background(90) = RGB(255,255,255)
	With .Elements.Add("Element",0,0).Copy()
		.Caption = "Enlarged Element"
		.InflateSize = 16
	End With
End With
24
How can I enlarge the node while AutoSize property is True (method 1)

With SwimLane1
	.Background(90) = RGB(255,255,255)
	With .Elements.Add("Element",0,0).Copy()
		.Caption = "Enlarged Element"
		.Padding(-1) = 16
	End With
End With
23
How can I get the lane of the element

With SwimLane1
	.BeginUpdate 
	.Pools.Add(-150,-150,500,250).Lane(0).Children.Count = 3
	With .Elements.Add("Element")
		.CenterOnLane False
		lane = .LaneID(False)
		Debug.Print( SwimLane1.LaneByID(lane).Header.Caption )
	End With
	.EndUpdate 
End With
22
How can I define a different shape for elements

' AddElement event - A new element has been added to the surface.
Private Sub SwimLane1_AddElement(ByVal Element As Object)
	With SwimLane1
		With Element
		End With
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAChABAQDg6AADACAxRDQNABQKAAzQFAYahuHKGAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQwDiAUIjIK8IhkGIcZAGIBJCjWGodQLOEgwH" & _
	"IERQjEyUJAGGYqEjaO41SpAdI0PCxUScACnDQiegJRgmQ4cTJSchSAKENx1JaeYReewwAqNd5TRwNIiydZUIhqGC1YRte4ZWiCWoJVzSVDLfbgAT4X60IIlCi5Mi6MIg" & _
	"DZJFDUNLUdRBMKNJ7qagaWoWOaQRbmAQQTRYLQ/TiEXZDQRAAyLJIWVRQWTAAKVbw1LiEcznGCcejzIIDaZpOh4DplWzTOgALjta4IRpvNwAbIAF4gBqsLyXXLcdQyOR" & _
	"MiwbxZgSDhgnQbJFC6F5JhECA8CADwIgMeQnmoQJlh0eAfGcXYZjwccOHiWx/moAJ6jed4DC2dJnnmQRxBcKABBoWAcHULZLHyV4mmGOx0FmdpZAMAgQhEQBpBiRxBlQ" & _
	"cgZFUdAMEYAxQDECBNgaUYglkCQKBGZANk0QgBgQXAQgcGI0FwJAHA6WI+DGDAjCiVg0g2Yw4mYNg7E0eJ1H+DpkAiYhBg6JApBYRMvDkJhGhKJIImEA4QledZ8H+FJl" & _
	"EEQhWBAJa8loRoCgkdhYBAExZHQKIXmUYRCFQI5mgWfZ4hMJpJC4boTGcCY0m0QJVBAIh2EIZZ5H4VIVAqeZ1H8M5oAmSg7g8TR1n4fQrmUQZCgqF5eEmYhYBgKQJiCD" & _
	"4PmaegKhWJZnAQDZkhqaYKFocYnGadZ8h+KJoiGQhfEIURAmKEAYAgeo1H8OZrAoeoyhGKYngaHInmuCpOjmKAkHMHo+iiSZxmKQoXkGCwWigRQlnqLh7jKSh7DYUYzm" & _
	"0CgAk+DIrFCAo3i6LYKnKWYuk6Wp4keKIqDsLh7BYLhJmaZo5mcYAijAOZtFsXpajubZLG6co8CSShtnYeJrGeVpzjwbxLnafI/mcK5ZnmPgtGuap+j6cIMB8CocDAK4" & _
	"3AaQAwjwJwQkSaZsDcBI7jETBHBqRhxkibwWkCMQsgcG5Ii2TB+nkN5yEyJwjkqcJMh8DpKDKTIrB2TBmnyGwFkwMw8mcMpOmQbJbBiTwziyUxBDsc5sD8QJRnQKprEW" & _
	"Tg0g0DxNlKMpsF8RpSHUTQ7BuUp0n0VxZi4MxrDSJ40DYDYHGKWJ2E2FxmyADYnGqMRBgeYh0FOLh9kccpcncJsVw7RdjvA2M4eovRmCSFkMwQIoAQEBA"
		.Add 2,"gBFLBCJwBAEHhEJAAChABAIDg6AADACAxRDQNABQKAAzQFAYaBmG6GAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DAAUIjKLMIhmGAYJAGIBJCjWGodQLOEgwH" & _
	"IERQjEyUpIyVAkYw5HqNaQjICoJoSOwAU47IaCIAFJSpCygKKgSjhRpoAAyU5IUgVPC4XSbD6zYDqapaTheEQyDSJNr3DCMUTlFYYLrmaQKMhqZJhWjbFSWXUpJ4pSrL" & _
	"MIyfTwZRJGzIK7jabLIjaP6GUDhVaYbRUL46CiEb5AAJsVpCCZrYRJOYVdQeDYbQCNLDhHQIDqaA6kZRAdQ2bpMBznPSvbovDgLWhGYqhbLCNibRC+d4HNrCYIlCjpMw" & _
	"3CYGIOHOMRsm0OxFjSZppneHQNFcSwRAOaprjqY4dgYe4VgGWwADucRuHYCpdByYROH8AAOC8D4NgEXwYBWEZyGAWoHg2MRCECBAkFAGhGDGUB1ByBhQkUIAPgCRAMEI" & _
	"ExhIuNhCEKBAlnAcwQgAYQXAIIRWEUFwJAGQ42CiCoihiLgugsYwDjSZ4MkICJWCaDZjgiZg6EIQQInSV4PmKeIyEKEBkBQDhEgwZBzjSd4SlEQJgk+E5khkRhIhSZA5" & _
	"FIUoVGWCQkl+FpkliTJnhXSYaFaGJOlEIhmC2ZoJgIZIaiWGYuG62IpDyT4TGSM5eGyCpmCnPIcCeQg+H6HZmnoAh6iAaBDjSL4hkUCgmgKHhlHmeIPh8BwKAqEohGkO" & _
	"gOHCI4pAmMoMhUKByj6CQUCkWoGhSKJpGkJoQiOJR6G4cYTmcSQuiKKRqEqPovhmBIJiCN4YEACQGFsN5lliToyiwbAKkKQoSGcWQ2HKERrhiJJvjLUR8leL5sDsBpQi" & _
	"UZZpDaO4eAACZWh+LYtDsSpejQbmJnIEAuEsLJvECRgLiSH46m2W4Gl+OxpFqWo0ECSR7lQaI9m8C4+nqO4uAIHp+B4MAJmcAAeC+YgenmPwwHwHInkKRYMDaWIQGmeh" & _
	"3AmPpxDsCJHkWbhBAIdZDmMGZXBmRZMHwVwikUIwam0MAMC4awiEmOYyHsXwkkIMp5jMLBMDKaRiiqEBsmkNwpkwc5MyiHRrEKfxCiobIaFsQgvmsTBvD2SJuAwNBYkK" & _
	"Sh6GsRYbDUDQ7EyVZmEwDwFiKdQ6BQf5XnYDRjD6IIujIfppBgKRcl6BZZnYXYLBWLYpn0KpglqLAtAIZoOneBsZw9RJjnQ+AYQAgCAg="
		.Add 3,"gBFLBCJwBAEHhEJAAChABQsMACAADACAxRDQNABQKAAzQFAYawLBgABhGUZoJhUAIIRZGMIjFDcEwxC6NIpAWCYQgUNQCQiNAzxAKQchhD4ZAIkGY4ZhyA42SBAcbyD" & _
	"CEShoGqPRhmCg5UjmM4oQLSFDULC0fSBBIYaSGEY5QoqIYfArGQYQTRUPyUdoOBIACwLChWLA1CTZdowSKoYTXBq3IgqerIapmSYaV7YNh3VY1IR/JSVJYlaYJDoyNI4" & _
	"ThHc5xVLtfSfAiiJrxOKcTAAFJ0QKFUbRUz+OgBTpvaZxagaSpSG5WRpWEI5PAdN4zTa7YDsS67FiSG5oWpEFq2eAGdzlVLMMqhG5gAxqNKzbLfMCXfJIbyrBIcYLoXI" & _
	"tCqFYskMTwxlgAY+haFZRlQZQ4HwHR3AoMx5jEch2lMfZGl8eY+jYXBvBsAAHFeRQDmuRR8nsSI2CoEgIEIRQBiQYwdAcUZIGUUIQhGGAGECRAhDYChGFERAMCgQheEc" & _
	"GQgHkEAwkICx2BCFoAj+B5iAiBgigiYhIgid4JkIQBwm2ChijiKgsguYpokYLYMmKQIiDYDgjgEAg6g6Y5InYPoPmOIAiEKEJFgkFIvhGYwIlIMoSTmAhOGgJJJC4UoS" & _
	"iUSIcncKZlp8WoOAOAxeF6FBlEkNhPGcZgJhYU4ZiMMweGoDAmkGfhuhWJoJDgIIUCYeZWGGHYkhkWhuB+ZYhEIcIUmcKZSHeIJmgoFgyCeaIBgKCoYCgGYSHiI5oEoQ" & _
	"gsiKBgKCCH4SOAfoGiQaZKPmJ5jGCIJniiZgpk6DonGkKomgOHpnjqFoCiaawKioSYXg0eoGi6KZrBqIo6hgEIal6GosiwCpuDIBgsEqDJniYa4bVuFYkDqepKjCLQJi" & _
	"iR4XCyawGk+JpGgsZIXjabRbEKV4disSYwDCH5OlsIpWjmaA5HKUomCYOp+l6OgkhoUoWiMLpbH6bw7G0KRynOHYuGuXobhWB4MAaaoaimO52naB4hnkYInhERYLBAGA" & _
	"hnECw+H2BwhkmSg7kMMIqHyb49hAECAg="
		.Add 4,"gBFLBCJwBAEHhEJAAChABOIDg6AADACAxRDQNABQKAAzQFAYaBqGCGAAGEZRSgmFgAQhFcZQTCsBw7DCEYxjOAwFgmEQxDIOIBQSKYcwiGQaRrkIYgEiONoaR7HchSF" & _
	"IcIxPFKRBhkKYocjyG5GRoBcIyXAcRSYAB2Q4ESoKShePw5UDTcCzHR8RxEDKNRLpOQbDgOUZTWbVUaDKIsXzZCKHbZhG4YRp6CZKRpYEB1bYtKTRKqLKrpeTbOoSHol" & _
	"TbiIATTYlG4THyEZQrDIaDjOSIXZaGFzwSDWGgBJ60bRwHIaAxGWoHRxfEZVfBONQHMSBc5xa64JyHAImWrcUbWfaYYZ0AC6MRkK8cXABPQANixKZsCizE4DDbTYzjRh" & _
	"eC2F4nnEOJRG0BRXEWOICEocByiyCJTiQOJVGYIQ8gofpDgsG5uF+ah6D2Xp+GGP5gkCfwRHofwOnuSB2heVpZnIUZQhAIQJBQBoRgwdAdEcIYVEIQhGGAMQDBCBJYEU" & _
	"GgNhCEMcHsXIkCIAAMIILQWAkAZDjYJIJiIWIeCqCRMHiNI/guYwIkYMoMmMSJWDaDZjgiTIzg6Yo4iIPoPGIdAmECChiFKXhGAQJIAmISgQCSSQ2E6E5lAkRhShSZRJ" & _
	"FQOoVkCaRkAqFpQhIPhehCY54hYQoRCOYo+GaExOnmJhghqZhJjIYYbmaaJ0l+HJkiCYgtDGY5RkIegfmeSY6GOD4MnoBh1D2aBJkYbYhmcCgigaIhOloEJ3h0aATD4b" & _
	"gWCkQoehaGAnniHhNgwKI6HaConmiSYCF4I5niGQoLDmaoAiKKoaE6eJ2H+HZnFoeohigKwqCwGItmqA4ejIHgrkIHo+iuEA4h6PGMmIHo1i0LIKk6SoMCSWwcm2LAki" & _
	"sAAAgmQgLFYcw3myaxmkmG4GgsdIXjebYjjaVQIC0eQFAONADguBpqjaaIKlwGIuG4GwOkWOYAAqDoljqbIrmIJ41m4O5iGYK5FAwBp0ikag7mqbI+GoCwyEyPgpBCQw" & _
	"Oj0KRBGKFgpnAbAjXWMQ8EaeIuG6a5SHWHZxFyBoIjEbA8FQCJJmiZAmmOORwHyCwXgkbwqn8LYoDKOZNAmJpinyOzTm8aZrBWH5QhGAxCCedBMm8L5Fi+fAEFCPgvks" & _
	"Vp0h8NQBn8RpLi7NQKBALxLHyF43EaDRPDOMoxkqXp4kYaRLlMTQIDWbQeguR5iluBxCBgNBCH6dIJnaSZjF+LQZgGQSh5DOFEa4dQsi5GILsaA8ReBuHoEYZ4ZwkDFF" & _
	"wJEYo2grjcHOFUAoFA7gJFqFEDYrQyilC+PwNgyRBBLH4C8FIzxiD8CeBYEgUQ9CtAiEwYgtQyDqDWPUTjBhXBrCmAcKoJQ6iGF6DEMA8BpieA4BgMQdxDg9GSOkLQgR" & _
	"CjhHiDMV4Ewfh3AoGULIiBujRAuJ0c4+gEi4ASOkRAfhWgjCKKEFACCAg"
		.Add 5,"gBFLBCJwBAEHhEJAAChABGgDg6AADACAxRDQNABQKAAzQFAYZBwGiGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ3DTJUBjIKcIhiGsgAzAJIUaw1DqGY7nKZoR" & _
	"ioAIoSAMM7DCKUQSLGyQZqBSCQGjsAI+OyHAiABSNJwtHygIRoKqqHg2PoiSAEUZhdRlHShKSqLQiaIRSDUJZsW5EIyjBZ8EznOqbJApOKrCgOTYaWbUdSxPTEUwTFiX" & _
	"JgmKRKIoiOAAY7IEgSFLsThrIKha5yDI4bxyAwXQjeYABbY0E4HQarcqzCrKGp/HYJXyAGgQHYkB5JAaQMBtGpoJrCeKQXDdVyXFwdET1BLZQA2HeUTTRVCScqnaTMZh" & _
	"8DgGxniKfYbngAxFkmVJAnSdougwDhRlMGZ1GEPR9HQapDGWWhyCMe4ugQDx9naYRvm6cQfAUJ47m8cofBYAZOGCHg2mETgCBCERAGkGJHEGVByBkUwUCSIgChAMQIE2" & _
	"BJRiQVQDAoEIWlWIxOgGBBcGyBQYlQXAkAcDpYh4KYKCKKI2CyC5ijONJvgySZ4lQWINkKCJmCWDpjkQaJPg+UA4joMYQiQI4eEYHAkgAYhKBgJJCh43JlAkEgwhSJA5" & _
	"E4VoVE6UQCFoL5lkkBhXhUCR5gYOQKAieYUneGZlEmJhfhqZYJFIWgQCWQp+F6GxigmHJ3BoJ4JmYMw7maKZSH6HxoAiQhvhwZ1VHYFAogmBIXiAZ55jKDIQgeChGG+G" & _
	"5BAoVJHiWaBYkIecznoOoeiMZYCj6IoYmcGhckeCophONoKh4aZagKLYrGkEZggeLJkCmThGDmZg5m6L4nmuOoCHaGJNnsBooAAIopCAcIZEiep2kqLwpnqCIviIBQLA" & _
	"4dolEECZakuK4sksYhYAgLZLOsQJLHuBBIjibR7haWYfGwawhAOJpmBuGpajuJRJkYbxAmgORynCOZvgqApejcAgIG4OYUA0e5em+PhokQXhKAYKx8AsCo+FEcJDA6D5" & _
	"MnwLwDkTWJulQQJuDEIphC2cQsHYbJEDCYJBAOLBrDIHwekUMBIiITgpmMcRhAOKYDgyRwnkyYwMjcK4cnAfAnCmSgzkoGhnkGZ45k6SIxjMTPIFCZOZEKSBxA0Fpui2" & _
	"b5LFoKIqGoaY/FKUY1gmdpQjOKxbBIV4zi0DQ6nmOhmFkUophCLILEMV5YiWCZkH+W5nl2HxfiiMwQmMTZOmqLhaLsx9iUH6JAMI1hCDjECFQawhghjBG2DseoGQzhNH" & _
	"wDwTAMAsgTEeCUZI1Q5jFHyLodYmWxB8GsPEVIPwxhSD6Awb4dgJD2HsAQQIoAQEB"
	End With
	.Background(90) = RGB(255,255,255)
	With .Elements
		.Add("Rectangular",0,0).Shape = 0
		.Add("Round",82,0).Shape = 1
		.Add("Rhomb",138,0).Shape = 2
		.Add("Circle",196,0).Shape = 3
		With .Add("EBN 1",0,36)
			.BackColor = &H1000000
			.Border = -1
		End With
		With .Add("EBN 2",54,36)
			.BackColor = &H2000000
			.Border = -1
		End With
		With .Add("EBN 3",108,36)
			.BackColor = &H3000000
			.Border = -1
		End With
		With .Add("EBN 4   ",160,36)
			.BackColor = &H4000000
			.Border = -1
		End With
		With .Add("EBN 5 ",220,36)
			.BackColor = &H5000000
			.MinHeight = 64
			.MinWidth = 64
			.Border = -1
		End With
	End With
	.ScrollPos(False) = -160
	.EndUpdate 
End With
21
Is it possible to add an inner control on the surface

' OleEvent event - Occurs once an inside control fires an event.
Private Sub SwimLane1_OleEvent(ByVal Element As Object, ByVal Ev As Object)
	With SwimLane1
		Debug.Print( Ev )
	End With
End Sub

With SwimLane1
	With .Elements
		With .Add("activex hosting")
			.Type = 2
			.Control = "Forms.CommandButton.1"
			.Caption = "Command Button"
			.Height = 64
			.Width = 128
			.ElementFormat = "14;""caption""/""client"""
			.CaptionAlign = 1
		End With
	End With
End With
20
How can I create a copy of the element
With SwimLane1
	.Background(90) = RGB(255,255,255)
	.Elements.Add("Element 1",0,0).Copy().Caption = "Aka"
End With
19
How can I define an opaque background for elements

With SwimLane1
	.Background(90) = RGB(255,255,255)
	.Elements.Add "Element 1",0,0
	.Elements.Add "Element 2",16,16
End With
18
How can I show a different context-menu for all elements
' ActionContextMenu event - Occurs when the user selects an item from the object's context menu.
Private Sub SwimLane1_ActionContextMenu(ByVal Action As Long, ByVal ObjectType As Long, ByVal ObjectID As Variant, ByVal CommandID As Long, ByVal CommandChecked As Boolean, ByVal CommandCaption As Variant, ByVal CommandValue As Variant, Cancel As Boolean)
	With SwimLane1
		Debug.Print( Action )
		Debug.Print( ObjectID )
		Debug.Print( CommandID )
	End With
End Sub

With SwimLane1
	.ContextMenu(4) = "Item 1[id=1000],Item 2[id=2000]"
	.Background(90) = RGB(255,255,255)
	.Elements.Add "Element 1",0,0
	.Elements.Add "Element 2",16,16
End With
17
How can I show a different context-menu for element
With SwimLane1
	Debug.Print( .Elements.Add("Element",0,0).InvokeContextMenu("Item 1[id=1000],Item 2[id=2000]") )
End With
16
How can I change the design-modes being shown on the control's toolbar

With SwimLane1
	.DesignModes = "Read-Only#0,Allow Any#3,Only-Element#1,Only-Pool#2"
End With
15
How can I change the default header's background color

With SwimLane1
	.BeginUpdate 
	With .Pools.Add(-250,-150,500,250)
		.Lane(0).Children.Count = 4
		.Lane(1).Children.Count = 4
	End With
	.Background(120) = RGB(0,255,0)
	.Background(124) = RGB(0,192,0)
	.EndUpdate 
End With
14
How can I remove the Design item from the control's toolbar, to be locked ( no-design )

With SwimLane1
	.ToolBarFormat = "-1,100,101"
	.DesignMode = 0
End With
13
How can I remove/disable the Color and Display-Grid from the surface's context menu

With SwimLane1
	.ContextMenu(24) = "Delete[id=-32004](All[id=-32000][ttp=Deletes all the objects from the surface],[sep],Elements[id=-32001][ttp=Deletes all elemen" & _
	"ts from the surface],Links[id=-32002][ttp=Deletes all links from the surface],Pools[id=-32003][ttp=Deletes all pools from the su" & _
	"rface])"
End With
12
How can I change the element's context-menu when the user right-clicks the element

' ActionContextMenu event - Occurs when the user selects an item from the object's context menu.
Private Sub SwimLane1_ActionContextMenu(ByVal Action As Long, ByVal ObjectType As Long, ByVal ObjectID As Variant, ByVal CommandID As Long, ByVal CommandChecked As Boolean, ByVal CommandCaption As Variant, ByVal CommandValue As Variant, Cancel As Boolean)
	' ContextMenuObjectFromID(ObjectType,ObjectID).BackColor = RGB(255,255,0)
	With SwimLane1
		Debug.Print( Action )
		Debug.Print( CommandCaption )
	End With
End Sub

With SwimLane1
	.BeginUpdate 
	.Elements.Add "element",0,0
	.ContextMenu(4) = "Simple,Value[edit=123],[sep],Popup(Check 1[chk],Check 2[chk=1])"
	.EndUpdate 
End With
11
How do I prevent showing the context-menu when user right-clicks the surface
With SwimLane1
	.ContextMenu(24) = ""
End With
10
How do I create parent-child (tree) lanes

With SwimLane1
	.BeginUpdate 
	With .Pools.Add(-250,-150,500,250)
		.HeaderSize(1) = 32
		.HeaderVisible(3) = False
		With .Lane(1).Children
			.Count = 2
			With .Item(0).Children
				.Count = 2
				.Item(0).Header.Caption = "Phase <b>1.1"
				.Item(1).Header.Caption = "Phase <b>1.2"
			End With
		End With
	End With
	.EndUpdate 
End With
9
How do I create a pool with horizontal and lanes

With SwimLane1
	.BeginUpdate 
	With .Pools.Add(-250,-150,500,250)
		.Lane(0).Children.Count = 4
		.Lane(1).Children.Count = 4
	End With
	.EndUpdate 
End With
8
How do I add programatically a pool with horizontal lanes

With SwimLane1
	.BeginUpdate 
	With .Pools.Add(-250,-150,500,250)
		.Lane(0).Children.Count = 4
	End With
	.EndUpdate 
End With
7
How do I add programatically a pool with vertical lanes

With SwimLane1
	.BeginUpdate 
	With .Pools.Add(-250,-150,500,250)
		.Lane(1).Children.Count = 4
	End With
	.EndUpdate 
End With
6
How can I change the toolbar's visual appearance

With SwimLane1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(148) = &H1000000
	.Background(149) = RGB(255,255,255)
	.Background(150) = RGB(40,40,40)
	.Background(153) = &H1606060
	.Background(154) = RGB(240,240,240)
	.Background(155) = &H1a0a0a0
	.Background(156) = RGB(255,255,255)
End With
5
How can I change the toolbar's background color

With SwimLane1
	.Background(149) = RGB(255,255,255)
End With
4
How can I fit or ensure that all elements are in the control's client area
With SwimLane1
	With .Elements
		.Add("Element A",-500,-500).BackColor = RGB(0,255,0)
		.Add("Element B",500,500).BackColor = RGB(255,0,0)
		.Add "Element C",48,24
	End With
	.FitToClient 
End With
3
Context Menu - Microsoft Windows 8.1 - Ribbon Like

With SwimLane1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn"
		.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn"
		.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn"
		.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn"
		.Add 17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn"
		.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn"
		.Add 30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn"
		.Add 31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn"
		.Add 32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn"
		.Add 33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn"
		.Add 34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn"
		.Add 35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn"
	End With
	.Background(99) = &H1000000
	.Background(64) = &H1fefefe
	.Background(102) = &He000000
	.Background(148) = &H1000000
	.Background(149) = RGB(255,255,255)
	.Background(155) = &Hc000000
	.Background(153) = &He000000
	.Background(110) = &Hc000000
	.Background(112) = &H23000000
	.Background(2) = &H22000000 ' &H2
	.Background(3) = &H23000000 ' &H3
	.Background(70) = &H20000000
	.Background(71) = &H21000000
	.Background(73) = &H1e000000
	.Background(74) = &H1f000000
	.EndUpdate 
End With
2
Context Menu - Microsoft Paint - Ribbon Like

With SwimLane1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn"
		.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn"
		.Add 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn"
		.Add 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn"
		.Add 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn"
		.Add 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn"
		.Add 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn"
		.Add 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn"
		.Add 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn"
		.Add 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn"
		.Add 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn"
		.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn"
		.Add 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn"
		.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn"
		.Add 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn"
		.Add 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn"
		.Add 17,"CP:16 0 0 0 1"
		.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn"
		.Add 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn"
		.Add 20,"CP:19 0 0 0 1"
	End With
	.Background(99) = &H1000000
	.Background(101) = RGB(21,66,139)
	.Background(102) = &He000000
	.Background(64) = &H1fefefe
	.Background(148) = &H1000000
	.Background(149) = RGB(255,255,255)
	.Background(155) = &Hd000000
	.Background(153) = &H1000000
	.Background(2) = &Hd000000 ' &H2
	.Background(105) = &H5000000
	.Background(106) = &H6000000
	.Background(107) = &H7000000
	.Background(108) = &H8000000
	.Background(116) = &H9000000
	.Background(117) = &Ha000000
	.Background(118) = &Hb000000
	.Background(110) = &Hc000000
	.Background(112) = &Hf000000
	.EndUpdate 
End With
1
Context Menu - Microsoft Office - Ribbon Like

With SwimLane1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn"
		.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn"
		.Add 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn"
		.Add 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn"
		.Add 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn"
		.Add 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn"
		.Add 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn"
		.Add 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn"
		.Add 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn"
		.Add 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn"
		.Add 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn"
		.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn"
		.Add 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn"
		.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn"
		.Add 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn"
		.Add 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn"
		.Add 17,"CP:16 0 0 0 1"
		.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn"
		.Add 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn"
		.Add 20,"CP:19 0 0 0 1"
	End With
	.Background(99) = &H1000000
	.Background(101) = RGB(21,66,139)
	.Background(64) = &H1fefefe
	.Background(148) = &H1000000
	.Background(149) = RGB(255,255,255)
	.Background(155) = &Hd000000
	.Background(153) = &H1000000
	.Background(2) = &Hd000000 ' &H2
	.Background(3) = &H1000000 ' &H3
	.Background(105) = &H5000000
	.Background(106) = &H6000000
	.Background(107) = &H7000000
	.Background(108) = &H8000000
	.Background(116) = &H9000000
	.Background(117) = &Ha000000
	.Background(118) = &Hb000000
	.Background(110) = &Hc000000
	.Background(102) = &He000000
	.Background(112) = &Hf000000
	.EndUpdate 
End With